head(cards)
head(tarot)
head(roulette)
# drawing 5 cards
sample(cards$card, 5)
# drawing 5 cards with jokers
sample(c(cards$card, rep("Joker", 3)), 5)
# spin the wheel by using the DescTools::Sample() for sampling
# rows from a data frame
Sample(roulette, size=1)
# simulate the evening in Las Vegas with 10 games
Sample(roulette, 10, replace=TRUE)
Run the code above in your browser using DataLab